LOOKUP (Stock_Key.TRANS,Stock_Key.STOCKS) ELSE REQUEST "Stock key not found - Please select another Stock","",20,,Stock_Key.TRANS,60,Stock_Key.STOCKS,Company Name.STOCKS
Customer_Ref ;TXT VAL REQ IXD ;8 ;0 ;46 ;>
LOOKUP (Customer_Ref.TRANS,Customer_Ref.CLIENTS) ELSE REQUEST "Customer ref not found - Please select another customer","",20,,Customer_Ref.TRANS,60,Customer_Ref.CLIENTS,Client.CLIENTS,Location.CLIENTS
Transaction ref;NML CON RDO IXU ;000000. ;1 ;0 ;>
SER ("TRANS")
Trans_Type ;TXT VAL REQ ;1 ;1 ;48 ;>
Trans_Type.TRANS = "b" OR Trans_Type.TRANS = "s" ELSE REQUEST "Valid types are (b)uy or (s)ell","",4,,Trans_Type.TRANS,1
Trans_Date ;DAT CON ;mmm dd,yy ;2 ;5 ;>
TODAY
Trans_Time ;TIM CON ;hh:mm am ;2 ;48 ;>
NOW
Settlement_Date;DAT CON ;mmm dd,yy ;3 ;0 ;>
Trans_Date.TRANS + 7
Quantity ;NML ;99999999. ;5 ;7 ;
Stock_Price ;NUM CLC ;9999999.0000 ;7 ;4 ;>
Stock_Price.TRANS = 0 AND LOOKUP (Stock_Key.TRANS,Stock_Key.STOCKS) AND (Trans_Type = "s") ? Price Bid.STOCKS:Stock_Price.TRANS = 0 AND LOOKUP (Stock_Key.TRANS,Stock_Key.STOCKS) AND (Trans_Type = "b") ? Price Asked.STOCKS:Stock_Price.TRANS